home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / mee / csi / dblib.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-06  |  2.2 KB  |  42 lines
  1. ' Necessary declarations to use DB-Lib...
  2.  
  3. ' return values for all RETCODE type functions
  4. Global Const SUCCEED% = 1
  5. Global Const FAIL% = 0
  6.  
  7. ' return values permitted in error handlers
  8. Global Const INTEXIT% = 0
  9. Global Const INTCONTINUE% = 1
  10. Global Const INTCANCEL% = 2
  11.  
  12. Global Const MOREROWS = -1
  13. Global Const NOMOREROWS = -2
  14. Global Const REGROW = -1
  15. Global Const BUFFULL = -3
  16.  
  17. ' Status code for dbresults(). Possible return values are
  18. ' SUCCEED, FAIL, and NO_MORE_RESULTS.
  19.  
  20. Global Const NOMORERESULTS = 2
  21.  
  22. Declare Function SqlInit Lib "VBSQL.VBX" () As String
  23. Declare Sub SQLWinExit Lib "VBSQL.VBX" ()
  24. Declare Function SqlOpen Lib "VBSQL.VBX" (ByVal Login As Integer, Server As String) As Integer
  25. Declare Sub SQLClose Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  26. Declare Sub SqlFreeLogin Lib "VBSQL.VBX" (ByVal Login As Integer)
  27. Declare Function SqlCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, cmd As String) As Integer
  28. Declare Function SqlExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  29. Declare Function SqlResults Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  30. Declare Function SqlNextRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  31. Declare Function SqlSendCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, cmd As String) As Integer
  32. Declare Function SqlOpenConnection Lib "VBSQL.VBX" (Server As String, LoginID As String, Pwd As String, WorkStation As String, Application As String) As Integer
  33. Declare Function SqlOpenConnection Lib "VBSQL.VBX" (Server As String, LoginID As String, Pwd As String, WorkStation As String, Application As String) As Integer
  34. Declare Function SqlUse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, database As String) As Integer
  35. Declare Sub SqlExit Lib "VBSQL.VBX" ()
  36. Declare Function SqlColLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  37. Declare Function SqlDatLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Long
  38. Declare Function SqlData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  39. Declare Function SqlDataReady Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  40. Declare Function SqlNumCols Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  41.  
  42.